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Public Function AndGate{ByVal Lett As Boolean, ByVal Right As Boolean) As Boolean 

If Left And Right Then 
AndGate = True 
End If 

End Function 
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Public Function TransLatch(ln1 As Boolean, In2 As Boolean) As Boolean 
Static Trans As Boolean 

Trans = Not AndGate(Not (AndGate(ln1, Not {In2))), _ 
Not (AndGate(Not {AndGate(ln1, In2)), Trans))) 
TransLatch = Trans 

End Function 



FIGURE 6C _ EDGE TRIGGERED 

LATCH 213 



Public Function Latch(ln1 As Boolean, In2 As Boolean) As Boolean 
Static Latched, Transed As Boolean 

Latched = AndGate(Not (AndGate(Not (Inl), Transed)), _ 
Not (AndGate(Not (AndGate(Not (In1), _ 

Not (AndGate(Not (AndGate(ln1. In2)), Transed)))), Not (Latched)))) 
Transed = TransLateh(ln1 , In2) 
Latch = Latched 

End Function 
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Public Attack As Boolean 

Function FlipFlop(Note, Op as Boolean) 

If Not Note and Op and Attack Then Attack = False 
If Not Op and Not Attack then Attack = True 

Debug.Print Attack 
End Function 
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Public Attack As Boolean 

Function SeqLatch(Note, Op as Boolean) 
Static Gate as Boolean 

If Gate And Op Then Attack = True 
If Not Op Then Attack = False 
If Note And Not Op Then Gate = True 
If Not Note Then Gate = False 

Debug Print Attack 
End Function 
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Public Function AttReh (Note As Boolean, Op As Boolean) As Boolean 
Static AttackLeft as Boolean 

If Note And Op And Not AttackLeft Then 

AttackLeft = True 
End If 

If Not Note And Not Op And AttackLeft Then 

AttackLeft = False 
End If 

AttReM = AttackLeft 
End Function 
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Public AttackLeft, AttackRight As Boolean 

Public Function AttRel1(Note As Boolean, Op As Boolean) As Boolean 
Static AttReH as Boolean 

If Note And Not Op Then 

AttackLeft = True 
End If 

If Not Note And Not Op Then 

AttackLeft = False 
End If 

AttReH = AttackLeft 
End Function 
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Public AttackLeft, AttackRight As Boolean 

Function AttRel2(Note As Boolean, Op As Boolean) 

If Note And Not Op And Not AttackRight Then 

AttackLeft = True 
End If 

If Note And Op And Not AttackLeft Then 

AttackRight = True 
End If 

If Not Note And Op Then 

AttackRight = False 
End If 

If Not Note And Not Op Then 

AttackLeft = False 
End If 

Debug.Print AttackLeft 
Debug.Print AttackRight 

End Functton 
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Public AttackLeft, as Boolean 

Function AttRel8(Note As Boolean, Op As Boolean) 
Static Gatel, Gate2 as Boolean 

If Note And Not Op And Gate1 Then 

AttackLeft = Tnje 
End If 

If Not Note And Op And Not Gate1 Then 

AttackLeft = False 
End If 

If Not Note And Not Op And Not AttackLeft Then 

Gatel = True 
End If 

If Not Note And Not Op And AttackLeft Then 

Gatel = False 
End If 

Debug, Print AttackLeft 
End Function 
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Public AttackLeft, AttackRight as Boolean 

Function AttRel5(Note As Boolean, Op As Boolean) 
Static Gatel, Gate2 as Boolean 

If Note And Not Op And Not AttackRight Then 

AttackLeft = True 

Gatel = False 
End If 

If Note And Op And Not AttackLeft Then 

AttackRight = True 

Gate2 = False 
End If 

If Not Note And Op Then 

Gate2 = Taie 
End If 

If Not Note And Not Op Then 

Gatel = True 
End If 

If Not Note And Not Op And Gate2 Then 

AttackRight = False 
End If 

If Not Note And Op And Gatel Then 

AttackLeft = False 
End If 

Debug.Print AttackLeft 
Debug. Print AttackRight 
End Function 
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FIGURE 15 



Public AttackLeft, AttackRight As Boolean 

Function AttRel4(Note As Boolean, Op As Boolean) 

If Note And Op And Not AttackRight Then 

AttackLeft = True 
End If 

If Note And Not Op And Not AttackLeft Then 

AttackRight = True 
End If 

If Not Note And Not Op Then 

AttackLeft = False 
End If 

If Not Note And Op Then 

AttackRight = False 
End If 

Debug.Print Attack Left 
Debug.Print Attack Right 



End Function 



r-. . . .- . « A FORWARD ATTACK 

FIGURE 16A LATCH 310 



Public AttackLeft as Boolean 

Public Function AttRel7(Note As Boolean, Op As Boolean) As Boolean 
Static Gatel , Gate2 as Boolean 



If Note And Op And Gate2 Then 

AttackLeft = Tme 
End If 

If Not Note And Not Op And Not Gate2 Then 

AttackLeft = False 
End If 

If Not Note And Op Then 

Gate2 = False 
End If 

If Note And Not Op Then 

Gate2 = True 
End If 

Debug.Print AttackLeft 



End Function 
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Public AttackLeft, AttackRight as Boolean 



Function AttRel6(Note As Boolean, Op As Boolean) 
Static Gatel, Gate2 as Boolean 

If Note And Op And Gate2 Then 

AttackLeft = True 
End If 

If Note And Not Op And Gatel Then 

AttackRight = True 
End If 

If Note And Op And Not AttackLeft Then 

Gatel = True 
End If 

If Note And Not Op And Not AttackRight Then 

Gate2 = True 
End If 

If Not Note And Not Op And Not Gate2 Then 

AttackLeft = False 

Gatel = False 
End If 

If Not Note And Op And Not Gatel Then 

AttackRight = False 

Gate2 = False 
End If 

Debug.Print AttackLeft 
Debug.Print AttackRight 



End Function 
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Public Attack as Boolean 

Function AttackRelease(Note as Boolean, Op as Boolean) 
Static Gate1, Gate2 as Boolean 

If Gate2 = True and Op = False Then 

Attack = False 

Gate2 = False 
End If 

If Attack = True and Note = False Then Gate2 = True 

if Gate1 = True And Op = True Then 

Attack = True 

Gatel = False 
End If 

If Attack = False and Note = True Then Gatel = True 
Debug.Print Attack 
End Function 
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Public Function Attacl<D(Note As Boolean, Op As Boolean) As Boolean 
Static Gate1, Gate2, GateS as Boolean 

If Gates And Op Then 

AttackD = True 

Gates = False 
End If 

If Gate2 And Note Then 

Gates = True 

Gate2 = False 
End If 

If Gate1 And Not Op Then 

AttackD = False 

Gate2 = True 

Gate1 = False 
End If 

If Not Note And Op Then 

Gate1 - True 
End If 

If Not Note And Not Op Then 

Gate2 = True 
End If 

End Function 
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Public AttackLeft, AttackRight as Boolean 

Function AttackOn{Note As Boolean, Op As Boolean) 
Static Gatel, Gate2, GateS, Gate4 as Boolean 

If Gate4 = True And Op = False Then 

AttackRight = False 

Gate4 = False 
End If 

If Gates = True And Op = False Then 

AttackLeft = False 

Gates = False 
End If 

If AttackRight = True And Note = False Then 

Gate4 = True 
End If 

If AttackLeft = True And Note = False Then 

Gates =: True 
End If 

If Gate2 = True And Op = False Then 

AttackRight = True 

Gate1 = False 

Gate2 = False 
End If 

If Gatel = True And Op = True Then 

AttackLeft = True 

Gatel = False 

Gate2 = False 
End If 

If AttackRight = False And AttackLeft = False And Note = True Then 

Gatel = True 

Gate2 = True 
End If 

If AttackLeft = False And AttackRight = False And Note = True Then 

Gatel = True 

Gate2 = True 
End If 

Debug. Print AttackLeft 
Debug. Print AttackRight 



End Function 
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Public AttackLeft, AttackRight as Boolean 




Function BiAttackD(Note As Boolean, Op As Boolean) 
Static Gatel, Gate2, GateS, Gate4 as Boolean 




If Gate3 And Op Then 

AttackLpft == Tnjp 

Gates = False 
End If 




If Gate4 And Not Op Then 
AttackRight = True 
Gatp4> = Frilsp 

End If 




If Gate2 And Op Then 
AttackRight = False 
Gate2 = False 

r^ptpl = TriiP 

End If 




If Gatel And Not Op Then 
AttackLeft = False 

fiatPP — Triip 

Gatel = False 
End If 




If Gate2 And Note Then 

(^atp^ = Tnip 
Gate2 False 
End If 




If Gatel And Note Then 

r^atp^ = Trijp 

Gatel = False 
End If 




If Not Note And Op Then 

fnfltpl — TrilP 

V^CIl^ 1 — II Lie 

Gate4 = False 
End If 


•V. 


If Not Note And Not Op Then 

Gate2 = True 

Gates = False 
End If 




Debug. Print AttackLeft 
Debug. Print AttackRight 




End Function 
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FIGURE 23A 



Public Note, Op, Attack As Boolean 
Public Count As Integer 




Function CountLatch(Note, Op) 




If Note = 0 And Op = 0 And Count = 
If Note = 1 And Op = 0 And Count = 

Count = 2 

Attack = 1 
End If 


0 Then Count = 1 

1 Then 


If Note = 0 And Op = 0 And Count = 
If Note = 0 And Op = 1 And Count = 

Count = 0 

Attack = 0 
End If 


2 Then Count = 1 
1 Then 


Debug.Print Attack 

End Function 
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Public NoteLast, OpLast, Attack As Boolean 
Public NoteTime, OpTime As Variant 

Function TimeLatch(Note As Boolean, Op As Boolean) 

If Note o NoteLast Then NoteTime = Time() 
If Op o OpLast Then OpTime = Time() 

If Note And Op Then 

If OpTime > NoteTime Then Attack = True 
End If 

If Not Note And Not Op Then 

If OpTime > NoteTime Then Attack = False 
End If 

NoteLast = Note 
OpLast = Op 

Debug.Print Attack 
End Function 
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